home *** CD-ROM | disk | FTP | other *** search
/ The Original Shareware 1.1 / The Original Shareware (WeMake CDs)(Volume 1.1)(CDs, Inc)(1993).iso / 38 / sgn_bans.zip / REPLACEC.PAS < prev    next >
Pascal/Delphi Source File  |  1985-10-30  |  294b  |  11 lines
  1. { ReplaceChar, replaces one character within a string by another }
  2.  
  3. Procedure ReplaceChar(Var Str ; a, b : char ) ;
  4.  
  5. var
  6.   Str2 : string[255] absolute Str ; { avoid size incompatibility }
  7.   j : integer ;
  8.  
  9. begin
  10.   for j := 1 to length(Str2) do if Str2[j] = a then Str2[j] := b ;
  11. end ;